const
n=10;
var
i,j,tm:integer;
t:array[1..n] of integer;
c:array[1..n] of integer;
begin
for i:=1 to n do
begin
t[i]:=random(20);
write(' ',t[i]:3);
end;
writeln();
writeln('-------');
tm:=0;
for j:=2 to n do
begin
tm:=tm+t[j-1];
c[j]:=tm;
end;
writeln('-------');
for i:=1 to n do
write(' ',c[i]:3);
writeln();
end.